home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / TOD.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-01-15  |  1.4 KB  |  67 lines
  1. DATA SEGMENT PUBLIC 'DATA'
  2. TITLE__ DB 'TITLE: DOS DATE/TIME FOR MS FORTRAN'
  3. COPY_R  DB '   (C) John R. Petrocelli'
  4.         DB '       Schenectady,NY    '
  5.         DB '       01/13/86          '
  6. DATA ENDS
  7. DGROUP GROUP DATA
  8. CODE   SEGMENT 'CODE'
  9.        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  10. PUBLIC PCDATE
  11. PCDATE PROC FAR
  12.        PUSH BP
  13.        PUSH AX
  14.        PUSH BX
  15.        PUSH CX
  16.        PUSH DX
  17.        MOV AX,2A00H
  18.        INT 21H
  19.        MOV BP,SP
  20.        LES BX,DWORD PTR[BP+14]
  21.        MOV WORD PTR[BX],0000H
  22.        MOV [BX],DL
  23.        LES BX,DWORD PTR[BP+18]
  24.        MOV WORD PTR[BX],0000H
  25.        MOV [BX],DH
  26.        LES BX,DWORD PTR[BP+22]
  27.        MOV WORD PTR[BX],0000H
  28.        MOV [BX],CX
  29.        POP DX
  30.        POP CX
  31.        POP BX
  32.        POP AX
  33.        POP BP
  34.        RET 12
  35.        PCDATE ENDP
  36. PUBLIC PCTIME
  37. PCTIME PROC FAR
  38.        PUSH BP
  39.        PUSH AX
  40.        PUSH BX
  41.        PUSH CX
  42.        PUSH DX
  43.        MOV AX,2C00H
  44.        INT 21H
  45.        MOV BP,SP
  46.        LES BX,DWORD PTR[BP+14]
  47.        MOV WORD PTR[BX],0000H
  48.        MOV [BX],DL
  49.        LES BX,DWORD PTR[BP+18]
  50.        MOV WORD PTR[BX],0000H
  51.        MOV [BX],DH
  52.        LES BX,DWORD PTR[BP+22]
  53.        MOV WORD PTR[BX],0000H
  54.        MOV [BX],CL
  55.        LES BX,DWORD PTR[BP+26]
  56.        MOV WORD PTR[BX],0000H
  57.        MOV [BX],CH
  58.        POP DX
  59.        POP CX
  60.        POP BX
  61.        POP AX
  62.        POP BP
  63.        RET 16
  64.        PCTIME ENDP
  65.        CODE ENDS
  66. END
  67.